home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / WHATSTRG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  630 b   |  24 lines
  1. PROGRAM what_is_in_a_string;
  2.  
  3. VAR first_name   : STRING[10];
  4.     initial      : CHAR;
  5.     last_name    : STRING[12];
  6.     full_name    : STRING[25];
  7.     index,total  : INTEGER;
  8.  
  9. BEGIN  (* main program *)
  10.   first_name := 'John';
  11.   initial := 'Q';
  12.   last_name := 'Doe';
  13.   WRITELN(first_name,initial,last_name);
  14.   full_name := first_name + ' ' + initial + ' ' + last_name;
  15.   WRITELN(full_name);
  16.  
  17.   total := length(full_name);
  18.   WRITELN('The string contains ',total:4,' characters');
  19.   FOR index := 1 TO length(full_name) DO
  20.     WRITELN(full_name[index]);
  21.   WRITELN('End of program');
  22.  
  23. END.  (* main program *)
  24.